getPositions<-function(tDates,tCusips){
  #actions=getActions(tDates,tCusips)
  positions=matrix(rnorm(length(tDates)*length(tCusips)),nrow=length(tDates))
  colnames(positions)=tCusips; positions=data.frame(positions); positions$Dates=tDates
  return(positions)
}

#test
#tDates=rnorm(10)
#tCusips=c("a","b")
#getPositions(tDates,tCusips)
